home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / PROGHEAD.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-06-29  |  1.9 KB  |  28 lines
  1. 5 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12 '*****************   PUT TITLE HERE #############  *************************
  3. 16 '╔═════════════════════════════════════════════════════════════════════════╗
  4. 18 '║                                                                         ║
  5. 20 '║                                                                         ║
  6. 22 '║                                                                         ║
  7. 24 '║                                                                         ║
  8. 26 '║                                                                         ║
  9. 28 '║                                                                         ║
  10. 30 '║                                                                         ║
  11. 32 '║                                                                         ║
  12. 34 '║                                                                         ║
  13. 36 '║                                                       Ver 5.2/160/320   ║
  14. 50 '╚═════════════════════════════════════════════════════════════════════════╝
  15. 54 '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  16. 55 ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  17. 56 '**** ADD THE WORDS YOU WANT IN THE BOX AND DELETE EXTRA LINES TO BRING ****
  18. 57 '*** THE BOX DOWN TO SIZE.   SAVE THIS WITH THE "A" OPTION TO RUN "MERGE" **
  19. 58 '** START YOUR PROGRAM NUMBERING AT 100 FOR MERGE PURPOSES. RENUMBER LATER.*
  20. 60 CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  21. 100 GOTO 5
  22. 64900 END
  23. 65000 '************************* SAVE ROUTINE ********************************
  24. 65100 SAVE"B:PROGHEAD.BAS",A
  25. TO 5
  26. 64900 END
  27. 65000 '************************* SAVE ROUTINE ********************************
  28. 65100 SAVE"B:PROGHE